home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
viewmrg.zip
/
RBBSSUB2.MRG
< prev
next >
Wrap
Text File
|
1988-10-25
|
2KB
|
52 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB2.BAS to produce D:\LITE\RBBSSUB2.BAS
* RBBSSUB2.BAS: Date 10-2-1988 Size 130944 bytes
* ------------[ Created 10-25-1988 19:15:07 ]------------
* REPLACING old line(s) by new
20148 CALL QTPUT(FILE.NAME.HOLD$ + " has these files",1)
CALL VIEWARC
* ------[ first line different ]------
CALL VIEWTXT 'ViewArc Mod
CALL DLVIEWARC 'ViewArc Mod
IF SUBROUTINE.PARAMETER = -1 THEN _
ARC.INDEX = LAST.INDEX + 1
RETURN
END SUB
' $SUBTITLE: 'BADNAME - subroutine to find bad file names'
' $PAGE
'
' SUBROUTINE NAME -- BADNAME
'
' INPUT PARAMETERS -- PARAMETER MEANING
' ACTIVE.MESSAGE.FILE$
' ACTIVE.USER.FILE$
' CALLERS.FILE$
' COMMENTS.FILE$
' CONFIG.FILEANAME$
' MAIN.MESSAGE.BACKUP$
' MAIN.MESSAGE.FILE$
' MAXIMUM.VIOLATIONS
' PASSWORDS.FILE$
' RBBS.BAT$
' RCTTY.BAT$
' SUBDIR$()
' SUBDIR.INDEX
' VIOLATION$
' VIOLATIONS.THIS.SESSION
' Z$ NAME OF FILE
'
' OUTPUT PARAMETERS -- BAD.FILE.NAME.INDEX 1 = FILE NAME IS OK
' 2 = SECURITY BREACH TRIED
' VIOLATIONS.THIS.SESSION NUMBER OF VIOLATIONS
' FILENAME$ NAME OF FILE
'
' SUBROUTINE PURPOSE -- TO PROTECT RBBS-PC AGAINST THE USE OF BAD FILE NAMES
' TO EITHER CRASH THE SYSTEM OR TO BREACH RBBS-PC'S
' SECURITY
'
SUB BADNAME (BAD.FILE.NAME.INDEX) STATIC
'
' *
' * TEST FOR SYSTEM FILE ATTEMPT *
' *